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1700 FORTRAN SYSTEM 



The 1700 Mass Storage FORTRAN system for the Control Data® 1700 computer provides a convenient 
language for expressing mathematical and scientific problems in a familiar mathematical notation. 

A set of FORTRAN statements to accomplish a particular task is accepted as a source program by the 
FORTRAN compiler; the object program produced by the compiler contains the machine language com- 
mands to solve the problem. Object programs may be run repeatedly with varying sets of data. 

1700 Mass Storage FORTRAN is ASA FORTRAN with the differences described in the following text. 
Many programs written in ASA FORTRAN can be compiled by 1700 FORTRAN with little modification. 
All Basic FORTRAN programs can be compiled correctly by 1700 FORTRAN. 

The 1700 Mass Storage FORTRAN source language includes the following features: 



/~\ • Constants and variables of types: 

Integer Real (floating-point) 

Hexadecimal Double precision 

Byte Single 

Signed Byte ANSI 

« Library functions 

• Independently compilable subprograms 
o Generalized subscript expressions 

• Variable format for input/output control 

• Bit and byte manipulations 

• Run-anywhere compile time option 

• Mass storage language statements 

• Double-precision floating-point package 

The 1700 Mass Storage FORTRAN Version 3 product is composed of five basic elements: 

• A Variant FORTRAN Compiler — This compiler version has a larger number of overlays; 
the largest overlay is approximately 8K. It requires more mass memory than the B variant 
and is slower in compilation speed. 



39519900 A 1-1 



B Variant FORTRAN Compiler — This compiler has fewer overlays than the A variant; 
the largest overlay is approximately 16K. This variant is faster than the A variant. Both 
compilers process source statements identically and generate identical object code. 

Re-entrant ENCODE/DECODE Run-Time — This run-time runs in the foreground and has 
the characteristics for multiprogramming. 

Non-Re-entrant ENCODE/DECODE Run-Time — This run-time runs in the background and 
has identical user interface as the Re-entrant ENCODE/DECODE run-time. This run-time 
is designed for use in debugging programs to obtain the foreground. 

FORTRAN I/O Run-Time — This run -time runs in the background and has more extensive 
capabilities than the other two run-times. 



PRODUCT CONFIGURATIONS 

Several configurations are possible using the five elements of the product. 

Only one variant of the compiler may be present in a given MSOS system. With the selected compiler, 
Re-entrant ENCODE/DECODE Run-Time may be used (must be core-resident). Either Non-Re-entrant 
ENCODE/DECODE Run- Time or FORTRAN I/O Run- Time may be in the background. In addition, if 
FORTRAN I/O Run- Time is in the background, the non-duplicative functions present in Non-Re-entrant 
ENCODE/DECODE can also be in the background. 

Specific details of the configurations can be found in the MSOS Configuration Manual, CDC Publication 
No. 



PRODUCT HARDWARE REQUIREMENTS 

The MSOS Reference Manual should be consulted for specific hardware options available (CDC Publica- 
tion No. 60361500). 

The minimum system memory requirements for MSOS do not include any of the elements of Mass 
Storage FORTRAN. If the A variant of the compiler is used, the minimum memory requirement is 
24K. The B variant minimum is 32K. If the foreground ENCODE/DECODE run-time is used, the 
additional memory requirement is 4K for single-precision floating-point, or 8K for double-precision 
floating-point. 



OUTPUT 

Output selected by the programmer may include: 
• Relocatable object program 
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" • Source program listing plus diagnostics 

( J • Object program listing (binary and assembly code equivalent) 

• Load-and-go object program for immediate execution 



o 



o 
o 



o 



o 



o 
o 
o 
o 
o 
o 



Diagnostic messages are printed when the compiler detects actual errors and probable errors. 



COMPILER OPTIMIZATIONS 

1700 Mass Storage FORTRAN is a multiple-pass compiler which produces highly optimized code. The 
optimizations are listed below: 



• Common subexpressions, including subscripts, within or between arithmetic expressions 
are identified and computed only once. 

f j • Subexpressions are computed at the lowest DO loop level. 

• Subscripts being acted upon by DO loop induction variables are computed recursively. 
C ) • Index registers are optimally assigned. 

• One word relative addressing is used where possible. 

• Storage is allocated to maximize relative addressing. 

• All simple FORTRAN-provided functions are inserted in-line; for example, IABS or AND. 



A comprehensive analysis of IF statements is made. A transfer from the IF statement to 
the inbel of the next statement is recognized in the generated code. In a logical IF, the 
computations are structured to determine the truth value with the least computation. 



e The analysis and computation of arithmetic expressions are accomplished in an order which 
minimizes both the amount of code generated and the execution time. 

C j • Division by a real constant is accomplished through multiplication by the reciprocal of the 

constant. 



a For integer variables, multiplication and division by a constant which is a power of two is 
accomplished through shifting. When numbers are raised to integer constant powers, in- 
line multiplication is used wherever it increases efficiency. 

Cj 9 The values in the A, Q, and I registers are retained and may be used later. 

• A flow analysis of the program is made; common subexpressions and index register 
assignments are carried through the flow. 
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CARD FORMATS 

The initial statement card format is: 

Columns 

1-5 
6 

7-72 
73-80 

The continuation card format is: 

Columns 



Content 

Blank or statement label 

Blank or 

Statements 

Identification and sequencing 

Content 



v. 



1-5 Blank 

6 Any character other than or blank 

7-72 Continuation statement 

73-80 Identification and sequencing 

Up to five continuation cards are allowed for a statement. 

I 
The comment card format is: 



Columns 

1 

2-72 

73-80 



Content 

C — comment designator 

Comments 

Identification and sequencing 



SOURCE PROGRAMS 

A source program may be a main program or a subprogram. Source programs must be compiled 
separately but may be run together. All specification statements must be placed at the beginning of 
the source program. 

Data values may be entered by DATA declarations. Specific storage areas may be reserved by 
COMMON statements for reference by subprograms and the associated main program. EQUIVALENCE 
allows the programmer to overlay the same storage locations with variables and arrays during program 
execution. 

The mode of a variable, integer or real, may be defined by a type declaration or by the form of the 
variable itself. 



1-4 
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o 
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Arithmetic operations include: addition, subtraction, multiplication, division, and exponentiation. 
Logical statements may include relational and logical operators. 

Control statements may alter the sequential execution of instructions unconditionally or dependent upon 
the value of an expression. 

Input/output operations transmit data between the computer storage and external equipment. Conversion 
and editing specifications permit great diversity in input/output formats. 



ELEMENTS 



CHARACTER SET 

Alphabetic: 
Arabic numerals: 
Special characters: 



A through Z 


through 9 




Blank 


= 


Equal sign 


+ 


Plus 


- 


Minus 


* 


Asterisk 


/ 


Slash 


( 


Left parenthesis 


) 


Right parenthesis 


» 


Comma 


• 


Decimal point 


$ 


Currency symbol 


i 


Apostrophe or single quote 


j 


Exclamation point 


it 


Quotation marks 


# 


Number sign 


% 


Percent sign 


& 


Ampersand 


: 


Colon 


> 


Semicolon 


< 


Less than 


> 


Greater than 


? 


Question mark 


§ 


Commercial at 


[ 


Opening bracket 


V 


Reverse slant 


] 


Closing bracket 


A 


Circumflex 




Underline 



39519900 A 



1-5 



u 



CONSTANTS 



Integer, real, hexadecimal, and ANSI constants are variable. Each type has a different mathematical 

significance and a different internal representation. The type of constant is determined by the form in / ^> 

which it is written or by the context. v^_^ 



INTEGER 

Integer constants are always exact representations of integer values with a range in magnitude of from 
to 2 15 -1. They may assume positive and negative values. 

Integer constants may be represented in decimal form (0-9) or hexadecimal form (0-9, A-F). When V- 

hexadecimal representation is used, the integer value must be preceded by a dollar sign ($). 



REAL 

128 
Real constants are approximations of real numbers with a range in magnitude of from to 2 . They 

may assume positive and negative values. Significance is one part in eight million. Single- and 

double-precision real capability is provided. 



ANSI 

The FORTRAN characters and their corresponding American National Standards Institute (ANSI) codes 
are listed in Appendix 8. 



VARIABLES 

Variables are alphanumeric identifiers which represent specific storage locations. Simple and sub- 
scripted variables are rocognized. A variable may be designated as a byte of another variable through ^~s 
a BYTE or SIGNED BYTE statement. Such a variable is treated as a signed or unsigned integer when V,^ 
used in the body of the program. 

When a variable is not declared by a type statement, it is assumed integer if the initial character is V^ 

I, J, K, L, M, or N. If the variable begins with another alphabetic character, it is assumed real. 



c 
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o 
o 

p 

OAn array represents a block of successive storage locations for variables. Each element of the array 
is referenced by the array name plus 1, 2, or 3 subscripts in the following forms (c and d are unsigned 
integer constants and m is a simple integer or byte variable): 

o 
o 
o 
o 
o 

n 



w 



d c * m 

m c * m± d 

m± d 

A reference to an array must contain the number of subscripts specified in the DIMENSION statement. 

Examples of subscripted variables: 

A (I, J) 
C(14) 

BA(J + 3,5) 
Q(I-1,J,2*K) 

RUN-ANYWHERE OPTION 

Selection of this option results in an object program which will run correctly anywhere in allocatable 



o 


core, independ 


o 


ASA OPTION 


o 


This option pre 
for integers, o 


o 




o 




o 




o 




o 




o 




o 
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This option provides ASA compatibility. When this option is selected, two words of storage are allocated 
for integers, only one of which is used. (See SINGLE statement.) 
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L 



c 



c 
c 



o 
o 
p 
o 
o 
o 
o 
o 
o 
o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



REPLACEMENT STATEMENTS 



REPLACEMENT STATEMENT 



r = e 



The value of the expression, e, is assigned to the variable identifier, r; e is an arithmetic expression. 



ARITHMETIC EXPRESSION 

Any simple or subscripted variable, constant, or function may be an arithmetic expression. These 
entities may be combined by using the following arithmetic operators to form other arithmetic 
expressions: 



** exponentiation 
* multiplication 
/ division 

RELATIONAL EXPRESSION 



6 l 0Pe 2 



+ addition 

subtraction 



A relational expression is true if the arithmetic expressions ej_ and e 2 satisfy the relation specified by 
the operator, op; otherwise the relation is false, e. and e must be of the same type. 

Relational operators: 



.EQ. 


equal to 


.NE. 


not equal to 


.GT. 


greater than 


.GE. 


greater than or equal to 


.LT. 


less than 


.LE. 


less than or equal to 
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LOGICAL EXPRESSION 



e i °P e 2 op • ' • op e n 

A logical expression is formed with logical operators and logical elements (e.), and is either true or 
false. 

Logical operators: 

.OR. 

.AND. 
Logical primary 
Logical factor 

Logical element 



logical disjunction 

logical conjunction 

A relational expression 

A logical primary or . NOT. followed by a logical primary where . NOT. is 
logical negation 

A logical primary or a construct of one of the following two forms enclosed in 
parentheses: 

1) logical primary . AND. logical factor 

2) logical primary . OR. logical factor 



W 



c 



v_, 



c 



^ 
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o 
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o 
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o 

o 



SPECIFICATION STATEMENTS 



DIMENSION 



DIMENSION v,,v„ v 

12 n 



.'—n Storage locations are reserved for the array identifiers* v., which may be subscripted with up to three 

L ' unsigned integers. The number of locations reserved is computed from the DIMENSION statement and 



type of array. The arrays will not necessarily be assigned consecutive blocks of storage. 



BYTE 



BYTE (xy (c =d )) (x,r(c=d)) 

111 l nnn n 

Where: x. is bits c. through d. of y. 

i l 6 i 'i 



y. is an integer variable, integer array, or an integer array element 

c. and d. are integer constants in the range: 15xc i d i 



A variable may be designated as a byte of another variable or array with this statement. Such a 
variable is treated as an unsigned integer when used in the body of the program. 



SIGNED BYTE 

SIGNED BYTE (x ,y (c = d )),... , (x ,y (c = d )) 
1111 nnn n 

Same as BYTE except bytes are treated as signed integers only. 
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COMMON 

COMMON/name/v, , v n , . , . , v 
1 2 n 

Where: name identifies a common block (blank for blank common) ( 

v is a variable name, array name, or subscripted array identifier 

Common locations are assigned to the identifiers for reference by independently compiled programs 
and subprograms. Values in labeled common (name is not blank) may be preset by a BLOCK DATA 
subprogram. Dimensioning information may be supplied. C 

One block of labeled common and one block of blank common may be declared for a program. 



TYPE (^ 

*** V V 2 V „ r 

Where: type is INTEGER, REAL, or DOUBLE PRECISION v ' 

v. is a variable name, array name, or function name ( 

This statement declares the type of the identifier. It overrides or confirms the type implied by the I 

first character of the identifier and may supply dimension information. I 



EQUIVALENCE 



EQUIVALENCE (a^,...), (a 2 ,b 2 ,...), 



Storage may be shared by two or more entities. The names a.,b., . . . may be variable names or array 

element names. ( 

No more than one element in an EQUIVALENCE group may appear in a COMMON statement. No element 

may be a formal parameter. i 



DATA 



C 



DATA vVd/.v /d / v/d/ ( 

x jl £» & n n x_ 

Where: v. is a list containing names of variables, arrays, array elements, and implied 

DO loops ( 

d is a constant, signed or unsigned, or Hollerith text 
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r") 



o 



OThis statement defines initial values of variables or array elements. A one-to-one correspondence must 
exist between the list items and the constants. A constant may be preceded by k* to indicate that the 
» constant is to be specified k times. Apostrophes may be used to enclose a constant. In this case, the 

ANSI code for the symbols in the constant are stored into the corresponding variable. 



o 
o 
o 
o 
o 



r 



o 



o 
o 
o 
o 
o 
o 
o 



EXTERNAL 

EXTERNAL name , name , . . . , name 
1 2 n 

This statement specifies the parameter names to be external procedure names. 



RELATIVE 



RELATIVE name, , name , . . . , name 
12 n 



( \ This statement specifies the parameter names to be external procedure names. When the run-anywhere 

option is selected, all references to this procedure will be made relative. Relative externals may not 
be passed as parameters to subprograms. 



SINGLE 

SINGLE v.v c v 

l z n 

Specifies variables v. as one-word integers. Dimension information may also be specified. This 
statement is used if the ASA compile time option is selected. 
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L, 






c 



o 

o 
o 
o 

* 

o 
o 
o 
o 
o 
o 



o 



o 
o 

o 
o 
o 
o 



DATA TRANSMISSION STATEMENTS 



Data may be transferred within the computer and between the computer and peripheral equipment with 
the following statements. 



FORMAT 

FORMAT (spec , spec ,..., spec ) 

Where: spec is conversion of editing specification listed below 

Editing specifications and BCD conversion specifications may be included in programs. Format 
specifications can be compiled into a program or read into an array at object time. 

Conversion specifications: 

rEw. d Floating-point with exponent 

rFw. d Floating-point without exponent 

rDw. d Double-precision floating-point with exponentiation 

rlw or Iw. d Decimal integer 



^"■> r$w or Zw Hexadecimal conversion 

rAw Alphanumeric 



rRw Alphanumeric 

Editing specifications: 

wX Intra-line spacing 

wH ANSI heading and labeling 

/ Begin new record 

* or * ANSI heading and labeling 
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FORMATTED READ/WRITE 

READ(i,n)l 
WRITE(i,n)l 



Where: i is the logical unit number 

n is the FORMAT statement specifying how to move data V_y 

1 is the list of variables to be transmitted 

[ ; 
These statements transmit physical records, containing up to 120 characters, between the computer and v " 

logical unit i according to statement n which may represent one of the following: 



• The label of a FORMAT statement 

• An array name 

• An assign variable or formal parameter which has been assigned the label of a FORMAT 
statement 



UNFORMATTED READ/WRITE 

READ(i)l 
WRITE(i)l 

These statements transmit a binary record to or from logical unit i. One logical record is produced 
from each READ or WRITE statement. A logical record may consist of several physical records. The 
parameters have the same meanings as in formatted READ/WRITE. ENCODE/DECODE and other 
formatting routines aid the programmer in formatting his own data when necessary. 



SETBFR 



CALL READ/ WRITE/FREAD/FWRITE 

In addition to the formatted READ, WRITE and the unformatted READ/WRITE, the FORTRAN pro- 
grammer can perform 1700 MSOS 4 monitor calls to perform read or write requests by use of the 
FORTRAN run-time package. These FORTRAN calls have the following forms: 



c 



c 



A call to SETBFR provides the re-entrant FORTRAN I/O package with information regarding where to ^— 

store the program's I/O requests and corresponding data. It is used in conjunction with FORTRAN I/O V_. 

requests which are in the foreground. 



r 



c 



c 
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1 

o 
o 
o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 



CALL READ 
CALL WRITE 
CALL FREAD 
CALL FWRITE 

The CALL READ and CALL WRITE statements permit word addressing of mass memory devices as well 
as sector addressing. (Only sector addressing of mass memory is possible with the FORTRAN READ/ 
WRITE statements. ) 

The CALL FREAD and CALL FWRITE statements may be used by a background program to transfer 
binary information to or from mass memory. (The FORTRAN unformatted READ/WRITE statements 
cannot be used by a background program to access mass memory if the standard FORTRAN library rou- 
tines are used. ) 

These calls do not refer to a FORTRAN FORMAT statement, but require that the user do his own for- 
matting. The routines described in the next sections aid the programmer in formatting data. 



ENCODE/DECODE CALLS 



f~\ CALL DECODE (v,n,c,l) 

CALL ENCODE (v,n,c,l) 



Where: v is the starting address 

n is the FORMAT statement specifying how to move data or array name 

c is the number of variables to ENCODE/DECODE 

f~~\ 1 is the list of variables to be transmitted 



These statements transmit information, under FORMAT specifications, from one area of internal stor- 
age to another. 



ADDITIONAL FORMATTING ROUTINES 

HEXASC Converts a number to the ANSI characters corresponding to the digits in the 

hexadecimal form of the number 

HEXDEC Converts a number to the ANSI characters corresponding to the digits in the 

decimal form of the number 

ASCII Converts ANSI characters to a numoer, assuming the ANSI characters represent 

hexadecimal digits 
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DECHEX 



A FORM 



RFORM 



FLOATG 



Converts ANSI characters to a number, assuming the ANSI characters represent 
decimal digits 

Converts a word containing two ANSI characters to two words each containing a 
character left- justified blank- filled 

Converts a word containing two ANSI characters to two words each containing a 
character right- justified zero- filled 

Converts a floating-point number to ANSI characters including the sign, decimal 
point, and the exponent of the numoer 



FORTRAN/MONITOR RUN-TIME PACKAGE 

The FORTRAN/Monitor run-time package enables the FORTRAN programmer to make certain monitor 
requests, obtain monitor parameters, and execute I/O commands. The calls to READ, WRITE, 
FREAD, and FWRITE, as discussed earlier, are a part of the run-time package. The other FORTRAN 
monitor requests are as follows: 

CALL SCHEDL Schedules a requested program at a requested priority 

CALL TIMER After a specified time interval, schedules a requested program at a requested 
priority 

CALL RELESE Returns memory to the core allocator 

In addition to the monitor calls, the run- time package provides the FORTRAN programmer with access 
to the following routines: 

LINK Obtains the value in the Q register for use by the FORTRAN program 

DISPAT Transfers control to the dispatcher 

ICLOCK Obtains the value of the system clock 

OUTTNS Performs output via the 1705 Interrupt/Data Channel 

INPINS Performs input via the 1705 Interrupt/Data Channel 

ICONCT Performs a connect to the 1750 DCB terminator and then inputs from a device 

connected to the 1750 

OCONCT Performs a connect to the 1750 DCB terminator and then inputs from a device 

connected to the 1750 

ENDFILE ENDFILE lu causes the recording of an endfile record on the unit identified by lu. 



c 



c 



c 
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c 
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« 

o 
o 
o 
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o 
o 
o 
o 
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o 

o 

o 



REWIND 



REWIND lu positions the unit identified by lu at its load point. 



BACKSPACE BACKSPACE lu causes the unit identified by lu to go back to the beginning of the 
preceding record. 



ACCESSING MASS STORAGE FORTRAN FILES 

Mass Storage FORTRAN files may be created and accessed by a FORTRAN program. These files are 
assigned to the scratch area of the mass storage device and are not retained after execution of a job. 
(They are not to be confused with File Manager files as described in the 1700 MSOS 4 Reference Manual 
or with permanent files in the program library. ) 

To create a mass storage file, an OPEN statement must be executed. The OPEN statement has the 
following form: 

OPEN k,i,j,u,x 

Where: k is the name of the file 



i is the number of sectors per record 

j is the maximum number of records in the file 

u is the logical unit to which file is assigned 

x is the starting sector address for the file (optional) 

To access the file, alternate forms of the FORTRAN READ/WRITE statements are used. The alternate 
forms are as follows: 



READ (k(n),f)l 
WRITE (k(n),f)l 



Where: 



is the name of the mass storage file 
is the record number 

is the format specification, which may be the label of a FORMAT statement, an 
array name, or a variable which has been assigned me label of a FORMAT 
statement 

is the list of variables to be transmitted 
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ASSEM STATEMENTS 



Assembly language Instructions may be inserted in-line in a 1700 FORTRAN program by use of ASSEM 
statements. The inserted instructions are specified by the FORTRAN programmer in the following 
forms: 

o Hexadecimal constants which may represent code to be executed or actual constants 

• References to statement labels within the program 

• References to variables within the program 

• References to externals declared by the program 
o Indirect addressing indicators 



o 
o 

* 

p 
o 
o 
o 

O ■ 

o 
o 

ASSEM statements may be used to generate calling sequences to the operating system and to access the 
r~^\ core communication region. 

u 

o 
o 
o 
o 
o 
o 
o 
o 

o , 
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o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



CONTROL STATEMENTS 



The following statements may be used to alter the sequential execution of instructions. 

ASSIGN 

ASSIGN k TO i 
Where: k is the statement label 

i is the integer variable name (assign variable) 

A label assignment statement stores the location of a statement label into a variable. 

GO TO 

UNCONDITIONAL 

GO TO n 
Control transfers to the statement identified by n. 

ASSIGNED 

GO TO i or GO TO i, (k.,k_,...,k ) 
1 2 m 

Where: i is the integer variable name (assign variable) 

is the optional statement labels which may be 
convenience ; they are not used by the compiler. 



k. is the optional statement labels which may be included for the programmer's 



Before an assigned GO TO statement is executed, the current value of i must be previously assigned by 
an ASSIGN statement. Control transfers to that assigned location. The i may be assigned in either the 
program unit of the GO TO or in another program unit where i was passed as an actual parameter or 
was in COMMON. 
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COMPUTED 



GOTO (k^kg,...,^),! 
Where k. is the statement label Q_ y 

i is the integer variable reference 



Control transfers to statement k.. 



DO 

DO statements provide repetitive operation and incrementing. 

DO n i = nip m 2 or DO n i = m., m 2 , m„ 

Where: n is the statement number at the end of a sequence of instructions which begins 

with the DO statement 

i is a simple integer variable 

mj is an integer constant or simple integer variable 

The initial value of i is m.. The value of i is incremented by m„ each time. The sequence is repeated 
until i surpasses the value of nig. If m« is omitted, it is assumed to have the value 1. A DO loop may 
include other DO loops. 



IF 

IF statements transfer control conditionally depending on the value of an arithmetic or logical 
expression. 

IF (e) k lt k 2 ,k 3 

Where: e is an arithmetic expression 

k> is a statement label 

Control transfers to k, if the value of e is negative, to k„ if the value is zero, and to kg if the value is 
positive. 

IF (1) s 

Where: 1 is a logical expression 

s is any executable statement except a DO or another logical IF statement ' C ' 
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If 1 is false, s is executed as though it were a CONTINUE statement. If 1 is true, statement s is 
executed. 



CONTINUE 

CONTINUE 

This is a no-operation instruction which may be given a statement number for reference. It is frequent- 
ly used to terminate a DO loop. 



PAUSE 

PAUSE 
PAUSE v 

Where: v is an octal number with a maximum value of 77777 



f~*\ The PAUSE statement halts a program temporarily. The word PAUSE and the value of v, if present, 

are printed on the output comment device. A carriage return entered by the operator resumes execu- 
tion with the statement immediately following the PAUSE statement. 



STOP 

STOP 
STOPv 

Where: v is an octal number with a maximum value of 77777 

The STOP statement terminates the execution of a program. The word STOP and the value of v, if 
present, are printed on the output comment device. 



39519900 A 6-3/6-4 



c 



c 



o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 
o 
o 
o 
o 



o 
o 



PROGRAM AND SUBPROGRAM STATEMENTS 



SUBROUTINE 

SUBROUTINE name (p., p 2 p Q ) 

Where: name is the alphanumeric Identifier 

p. is a formal parameter (optional) 

The first statement in a subroutine defines it. A subroutine may return resulting values through formal 
parameters. 

CALL 

CALL name (c., c 2 , . . . , c ) 



\_J Where: name is the alphanumeric identifier 

c< is an actual parameter 



Control transfers from a program or subprogram to subroutine name with actual parameters, c., re- 
placing formal parameters, p., in the subroutine parameter list. The actual pa^meters may be vari- 
ables, array names, array element names, constants, arithmetic expressions, or external subprogram 
names. 



FUNCTIONS 



EXTERNAL 

FUNCTION name (p^ p 2 , . . . , P n ) 
Where: name is the alphanumeric identifier 

[) p. is a formal parameter (optional) 



This must be the first statement in a function subprogram. A function returns a single value as a 
result. 



39519900 A 



STATEMENT 

name (p^pg,... .P n ) =e 

Where: name is the alphanumeric identifier 

p, is a formal parameter 

e is an arithmetic expression involving p. 

This Statement defines the value of name, which is inserted in the code wherever name is used as an 
operand in an expression. The expression e may contain references to library functions, other state- 
ment functions , or function subprograms . 

The statement function name may not appear in a DIMENSION, EQUIVALENCE, or COMMON 
statement. 



O 



REFERENCE 

name (c lf c 2 ,.. . ,c 3 ) 
Where: name is an alphanumeric identifier 



'I 



is an actual parameter 



When the statement function appears as an operand in an expression, control transfers to the named 
function. Control returns to the statement containing the function reference and the value returned is 
associated with the function identifier. A function reference may be used anywhere that a variable 
identifier may be used. 

Actual parameters may be variables , array names, array element names , constants, arithmetic 
expressions, or external subprogram names. 



L 



BLOCK DATA 

BLOCK DATA 

Block data subprograms are used to enter initial values Into elements of labeled common blocks. This 
special subprogram contains only specification statements. BLOCK DATA must be the first statement in 
this subprogram. 

If an entity of a particular common block Is being given an Initial value In such a subprogram, a complete 
set of specification statements for the entire block must be Included, even though some of the elements 
of the block do not appear In DATA statements. Initial values may be entered Into more than one block 
in a single subprogram. 



c 
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RETURN 

RETURN 

This statement signals the end of logic flow within a subroutine or function and returns control to the 
calling program. More than one RETURN statement may appear within a single subroutine or function 
subprogram. If RETURN is omitted, the END statement serves as a RETURN statement. 



END 
This statement marks the physical end of a program, subroutine, or function. 
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PREDEFINED FUNCTIONS 



8 



BASIC EXTERNAL FUNCTIONS 

The following functions may be referenced in any program or subprogram. 
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Function 


Definition 


Exponential 


a 
e 


Natural 


log e (a) 


logarithm 




Trigonometric 


sin (a) 


sine 




Trigonometric 


cos (a) 


cosine 




Hyperbolic 


tanh (a) 


tangent 




Square root 


1/2 
(a) 


Arctangent 


arctan (a) 


End of file 


Check previous 


check on unit a 


read on unit a 




for end-of-file. 




2 is returned if 




none. 1 is re- 




turned if EOF. 



Number of 
Arguments 



Symbolic 
Name 

EXP 
DEXP 

A LOG 
DLOG 

SIN 
DSIN 

COS 
DCOS 

TANH 



EOF 



Type of 
Argument Function 



Real 
Double 

Real 
Double 

Real 
Double 

Real 
Double 

Real 



Integer 



Real 
Double 

Real 
Double 

Real 
Double 

Real 
Double 

Real 



SQRT 


Real 


Real 


DSQRT 


Double 


Double 


ATAN 


Real 


Real 


DATAN 


Double 


Double 



Integer 



8-1 







Number of 


Symbolic 


Type of 


Function 


Definition 


Arguments 


Name 


Argument Function 


Floating point 


If a is 0, over- 


1 


IFALT 


Integer Integer 


fault 


flow is tested. 
If a is 1, divide 
fault is tested. 
If a is 2 , under- 
flow is tested. 
A 2 is returned if 
the condition has 
not occurred, a 1 
otherwise. 








Parity error 


Check previous 


1 


IOCK 


Integer Integer 


check on unit 


read or write on 
unit a for parity 
error. A 2 is 
returned if no 
parity error 
occurred. A 1 
is returned If 
parity error did 
occur. 









INTRINSIC FUNCTIONS 

When the following functions are referenced, in-line code is generated. They may not be passed as a 
subprogram parameter. 







Number of 


Symbolic 


Type 


of 


Function 


Definition 


Arguments 


Name 


Argument 


Function 


Absolute 


l»l 


1 


ABS 


Real 


Real 


value 






IABS 


Integer 


Integer 








DABS 


Double 


Double 


Float 


Conversion 


1 


FLOAT 


Integer 


Real 




from integer 




DFLT 


Integer 


Double 




to real 










Fix 


Conversion 


1 


IFIX 


Real 


Integer 




from real 




DFDC 


Double 


Double 




to integer 










Transfer 


Sign of a 2 


2 


SIGN 


Real 


Real 


of sign 


times ] a^ | 




ISIGN 


Integer 


Integer 








DSIGN 


Double 


Double 
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Function 


Definition 


Number of 
Arguments 


Symbolic 
Name 


Type 
Argument 


of 
Function 


Inclusive 
OR 


Inclusive OR 
of I and J 


2 


OR(I,J) 


Integer 


Integer 


Exclusive 
OR 


Exclusive OR 
of I and J 


2 


EOR(I.J) 


Integer 


Integer 


Logical 
product 


Logical prod- 
uct of I and J 


2 


AND(I.J) 


Integer 


Integer 


Complement 


Complement 
(NOT) of I 


1 


NOT(I) 


Integer 


Integer 


Obtain most sig- 
nificant part of 
double -precis ion 
argument 




1 


SNGL 


Double 


Real 


Express single 
precision argu- 
ment in double 
precision form 




1 


DBLE 


Real 


Double 
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STATEMENTS 



ASSEM a t ,a_,...,a 
1 L, n 

ASSIGN n TO 

BACKSPACE i 

BLOCK DATA 

BYTE (x ,y (c =d ) x ,y (c = d )) 

1111 nnn n 

CALL name (c,,c_,... ,c ) 
l & n 

COMMON/name/v t , v , . . . , v 

CONTINUE 

DATAv/d /,v/d /,..., v/d/ 
l £> & n n 

DIMENSION v,,v ol ...,v 

l & n 

DO n i = m lt m ot m^ 
DOn i =m lf m 2 ,-m 3 
END 
ENDFILE lu 



EQUIVALENCE (a^ly...), (a^,. . .),. .. 

EXTERNAL name, ,name n , . . . .name 
l & n 

FORMAT (spec k(spec ,...), spec ,...) 

FUNCTION name (p. ,p A , . . . ,p ) ' 
l & n 

GO TOn 
GO TO i 



GOTOi, (n ,n _,..., n ) 
l & m 
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GOTO(n lf n 2 , 



m 



IF (e)n lt n 2 ,n 3 

IF(l)s 

OPEN 

PAUSE 

PAUSE n 

r = e 

READ (i) 1 

READ (i,n) 1 

RELATIVE name, .name., ... .name 
l & n 

RETURN 
REWIND i 



SIGNED BYTE (x=y. (c = d )),..., <x = y„(c = d )) 
ill l n nn n 

SINGLE i lf i 2 ,...,i n 

STOP 

STOPn 



SUBROUTINE name (p ,p ,. . . ,p ) 
i tt n 

typev 1 .v 2 .....v n 
WRITE (i) 1 
WRITE (i,n) I 



A-l/A-2 



L 



c 



L. 



c 

c 
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ANSI CODES FOR THE FORTRAN CHARACTER SET 



Bit Configuration 

0100000 
0100001 
0100010 
0100011 
0100100 
0100101 
0100110 
0100111 
0101000 
0101001 
0101010 
0101011 
0101100 
0101101 
0101110 
0101111 
0110000 
0110001 
0110010 
0110011 
0110100 
0110101 
0110110 
0110111 
0111000 
0111001 
0111010 

39519900 A 



Symbol 

SP 
! 



& 



Bit Configuration 

0111011 
0111100 
0111101 
0111110 
0111111 
1000000 
1000001 
1000010 
1000011 
1000100 
1000101 
1000110 
1000111 
1001000 
1001001 
1001010 
1001011 
1001100 
1001101 
1001110 
1001111 
1010000 
1010001 
1010010 
1010011 
1010100 
1010101 



Symbol 



> 

? 

@ 

A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

O 

P 

Q 
R 

S 
T 
U 



B 



B-l 



Bit Configurat 


ion 


Symbol 


Bit Configuration 


Symbol 


1010110 


V 


1011011 


[ 


1010111 




W 


1011100 


A 


1011000 




X 


1011101 


] 


1011001 




Y 


1011110 


A 


1011010 




Z 


1011111 
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COMPILATION OUTPUT AND OPTIONS 



u 
O 
O 
O 
O 

o 
o 

L — Source program listing with syntax checking of source code. 
{) A — Object code listing with assembly language equivalences 



The 1700 Mass Storage FORTRAN compiler allows a variety of compilation options for user needs. Any 
combination may be used. The following defines the available options. 



M — Condensed object code listing indicating the first object code statement generated 
for each source statement. 

R — Run-anywhere option allows for generation of code using relative addressing for 
execution in allocatable core. 

K — ANSI FORTRAN compatibility; integers occupy two words. 

X — Relocatable object code placed on mass memory load-and-go file for immediate 
execution. 



Relocatable object code output to output media for retention. 
^— ^ All compilation processes check for syntax errors and comprehensive diagnostics are printed. 

The following examples illustrate the compiler operation and listing. 
L Option 
Note that full compilation Is not done, only a statement syntax check. 

PROGRAM FTNOPT 
C 
C FXAMPLE FOR FORTRAN COMPILER OPTIONS 



o 


The followii 


o 


L Option 
Note that fu 


o 


1 


o 


2 




3 


o 
o 
o 


4 . 

5 

6 

7 

fl 

9 
10 
11 


o 




o 
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DIMENSION A<5)tl<5) 

00 1 II«1»5 

IUl)aII«3/*(II) 
1 CONTINUE 

CALL SUBEXM<AtI> 

J«K*6»C 

IF(FUNEXM4t9)) 10.20.10 
10 60 TO 20 
20 CONTINUE 

EN0 
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Options LA 






1 


C 

" : C 

c 


PROGRAM FTN6PT 


''';■. ,'.■ '■;'- "■'..>' ;' 


EXAMPLE FOR FORTRAN COMPILER OPf X'ONS 


?.. 


DIMENSION A<5) 1 1(5) 


1 




00 1 II»1,5 


4 




I(H)»II#3/A(II) 


5 




1 CONTINUE 


6 




CALL SUBEXM<AtI) 


7 




J«K*6«C 


a 




IF(FUNEXK4.9>> 10«20tl0 


9 




10 GO TO 20 


10 




20 CONTINUE 


11 




END 



V v 



0000 


0000 




NA* 


FTNOPT 


0000 


1819 


ftnopt 


JMP« 


•00001 


0001 


OOOA 


A • 


BSS 


10 


000B 


0005 


I 


BSS 


5 


'■ 0010 


0001 


II 


BSS 


1 


0011 


0003 


0003f 


CON 


3 


0012 


0001 


J 


BSS 


1 


0013 


0001 


K 


BSS 


1 


0014 


0006 


0006f 


CON 


6 


0015 


0002 


C 


BSS 


2 


0017 


41CE 


«1CE. 


CON 


16846 


0018 


6666 




CON 


26214 


3 0019 


OAol 


#00001 


ENA 


i 


001A 


68F5 




STA» 


II 


4 001B 


0A02 


•oooo* 


ENA 


2 


ooic 


28F3 




MUI* 


II 


oom 


682C 




STA» 


•00005 


001F 


C8F1 




LDA# 


II 


001F 


28F1 




MUI« 


0003S 


0020 


682A 




STA# 


•00006 


0021 


5400 




PTJ* 


FLOAT 


0022 


7FFF 








0023 


004A P 




ADC 


•00006 


0024 


5400 




RTJ* 


FLOT 


0025 


7FFF 








002* 


FA40 




CON 


-1471 


0027 


0049 P 




ADC 


•00005 


002« 


7FFE P 




ADC 


A 


0029 


5400 




RTJ* 


080FIX 


002A 


7FFF 








002P 


F8E4 




LDQ« 


II 


002C 


6AD0 




STA# 


I 



c 



-2 



• 1 tO 



C-2 
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V..' 



o 



r^ 


, 5 


0020 


08F? 




1 


RAG* 


II 


) 


OOZE 


OA05 






ENA 


5 


♦ 




002F 


98E0 






SUB« 


II 






0030 


0131 






SA^ 


1 


c 


) 


0031 


18E9 






JMP# 


•00004 


' 6 


0032 


5400 






RTJ* 


SUPEXM 






0033 


7FFF 










c 




0034 


0(»01 


P 




AOC 


A 




0035 


0008 


P 




AOC 


I 


T 


003<S 


5CFB 






PTJ» 


(FLOAT ') 






0037 


0014 


P 




ADC 


0006S 


c 




003« 


*CEC 






RTJ* 


(FLOT ) 




0039 


9040 






CON 


-2527<J 






003A 


0015 


P 




AOC 


C 






003* 


0048 


P 




ADC 


•00007 


o 




003C 


5CE5 






RTJ* 


(FLOAT ) 




0030 


0013 


P 




ADC 


K 






003E 


5CE6 






RTJ» 


(FLOT ) 


o 




003F 


6400 






CON 


-7167 




0040 


004P 


P 




ADC 


•00007 






0041 


5CE8 






RTJ« 


(08QFIX) 






0042 


68CF 






STA« 


J 


o 


8 


0043 


5400 






RTJ* 


FUNEXM 




0044 


7FFF 














0045 


0017 


P 




ADC 


41CE, 


r^ 




0046 


C0C5 






CON 


-16186 




0047 


<*105 






SA2 


5 




9 


0048 


1805 




10 


jmp« 


20 






0049 


0001 




•00005 


8SS 


1 






004A 


0001 




•00006 


8SS 


1 


LJ 




004P 


0002 




•00007 


BSS 


2 




11 


0040 
004E 


5400 
7FFF 




20 


RTJ* 


oasTP 


O 


11 


0000 


0000 






END 







PROGRAM LENGTH S004F 


( 79) 






o 


OPTS ■ 
EXTERN/ 


AL 
*LS 












o 


Q8QFIX 


FLOT 


Q8STP 


■ 


FLOAT SUBEXK FUNEXM 


o 
















o 
















o 
















o 
















o 
















o 
















N »*— s 
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Options LM 

Note condensed object code listing. This form is useful when the list device is a Teletype. 



2 
3 

4 

5 
6 
7 
8 
9 
10 
11 



PROGRAM FTNOPT 
EXAMPLE F0» FORTRAN COMPILER OPTIONS 

DIMENSION A<5)»I<5) 

00 1 It«lt9 

IUl)«II«3/A(II) 
1 CONTINUE 

CALL SUBEXM<AfI) 

J«K*6»C 

IF(FUNEXK(4«9)) 10«20 t l0 
10 GO TO 20 
?0 CONTINUE 

END 



y 



3 


0019 


0A01 


•00001 


ENA 


V 


4 


001R 


0A02 


•00004 


ENA 


2 


5 


002O 


D8E2 


1 


RAO* 


II 


6 


0032 


5400 




RTJ* 


SUBEXM 


7 


003ft 


&CFB 




RTJ» 


(FLOAT ') 


8 


0043 


5400 




RTj* 


FUNEXM 


9 


C04R 


1805 


10 


JMP« 


20 


11 


004O 


5400 


20 


RTJ* 


08STP 


11 


0000 


0000 




END 






PROGRAM LENGTH «004F ( 
O0TS « LM 



79) 



L. 



EXTERNALS 
Q80FIX FLOT 



OBSTP FLOAT SUBEXM FUNEXM 



c 



c 
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Options LAR 

Note that no program relocatable addresses are generated; hence, the program is able to run in 
allocatable core. 

1 PROGRAM FTNOPT 





c 
c 
c 


FXAMPLE FOR FORTRAN COMPll 


2 
3 

4 

5 
6 


DIMENSION A<5)il<5> 
DO 1 II«1«5 
I (lD«It«3/A(II) 
1 CONTINUE 

CALL SUBFXM(Atl) 


7 

8 

9 

10 

11 




J«k*6«C 

IF(FUNFXM(4.9>) I0«20tl0 

10 60 TO 20 
20 CONTINUE 
END 



0000 oooo 



NAM FTNOPT 



o 
o 



o 


3 


o 




o 




o 




o 




o 
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•00001 




' 


noon 


1819 


FTNOPT 


JMP» 


•00002 


0001 


O00A 


A 


BSS 


10 


nooq 


0005 


I 


BSS 


5 


com 


0001 


II 


BSS 


1 


0011 


0001 


0003* 


CON 


3 


0012 


0001 


J 


BSS 


1 


0011 


0001 


K 


SSS 


1 


0014 


0006 


&006S 


CON 


6 


3015 


0002 


C 


BSS 


2 


.017 


41CE 


*1CE. 


COK 


16846 


C01S 


6666 




CON 


26214 


0019 


5802 


•00002 


RTJ« 


•00005 


001A 


FFE5 




ADC 


•00001 


O01R 


0001 


•00005 


BSS 


I 


001C 


C8FE 




L0A« 


•00005 


0010 


68FC 




ADO* 


•00005 


C01E 


6AFC 




STA# 


•00005 


001F 


0A01 




ENA 


I 


0020 


68EF 




STA« 


II 



\ 



-1 



C-5 









4 0021 


OAO? • < 


)0006 ENA 


2 


002? 


28E0 


MUI* 


II 


0023 


682C 


STA« 


•00007 


0024 


C8EB 


LD4# 


II 


0025 


28EB 


MUI* 


0003S 


002* 


6824 


STA* 


•00008 


0027 


5400 


RTj* 


FLOAT 


oo?b 


7FFF 






0029 


8027 


40C 


•00008 


0024 


5400 


RTJ* 


FLOT 


002R 


7FFF 






002C 


5FA4 


CON 


24484 


0020 


0022 


ADC 


.00007 


002E 


7FD0 


ADC 


A 


002F 


5400 


RTJ*. 


08QFIX 


0030 


7FFF 






0031 


E8DF. 


LDQ* 


II 


0032 


6407 


STA« 


I 


5 0063 


D80C 1 


RAO* 


II 


0034 


0405 


ENA 


5 


0035 


9804 


SUB* 


II 


0036 


0131 


SAP 


1 


0037 


18E9 


JMP» 


•00006 


6 0038 


5400 


RTj* 


SUPEXM 


0039 


7FFF 






0034 


FFC6 


ADC 


A 


003B 


FFCF 


ADC 


I 


7 003C 


5CER 


RTJ* 


(FLOAT ') 


0030 


FF06 


AOC 


0006$ 


003E 


5CEC 


RTJ* 


(FLOT ) 


003F 


5904 


CON 


22996 


0040 


7F04 


AOC 


C 


0041 


"010 


AOC 


•00009 


0042 


5CE5 


RTJ* 


(FLOAT ) 


0043 


FFCF 


AOC * 


K 


0044 


5CE6 


RTJ* 


(FLOT ) 


0045 


5E40 


CON 


24128 


0046 


O008 


ADC 


•00009 


0047 


5CF8 


RTJ* 


(Q8QFIX) 


0048 


68C9 


STA» 


J 


8 0049 


5400 


RTJ* 


FUNEXM 


004A 


7FFF 






004B 


FFCP 


ADC 


41CE. 


004C 


C0C5 


CON 


-16186 


0040 


0105 


SAZ 


5 


9 004F 


1805 10 JMP# 


20 


004F 


0001 .00007 BSS 


1 


0050 


0001 .00008 BSS 


1 


0051 


0002 .00009 BSS 


2 


11 0053 


5400 20 RTJ* 


08STP 


0054 


7FFF 






11 0000 


0000 


END 






PROGRAM LENGTH $0055 ( 
OPTS ■ RAL 



85) 



EXTERNALS 
08QFIX FLOT 



c 



-2 



-ltQ 



c 






c 



08STP FLOAT SUREXM FUNEXM 



C-6 



39519900 A 



o 
o 
o 

# 

o 



o 

o 
o 

o 



o 
o 



o 
o 
o 
o 
o 
o 
o 



Options LAK 

This form allocates two words of memory for each integer. The actual executable code only uses one 
of the two words . 



PROGRAM FTNOPT 





C 
C 
C 


EXAMPLE 


FOP FORTRAN COMPILE© 


2 


DIMENSION A<5)tl(5) 




3 




DO 1 


UoltS 






4 




Kill 


aII«3/A(II) 




5 




I CONTINUE 






6 




CALL 


SUBEXMU 


• I) 




7 




JoK*6«C 






8 




IF(FUNEXM<4.9) ) 10» 


20tl0 


9 




10 GO TO 


20 






10 




20 CONTINUE 






11 




END 










0000 


0000 




NAM 


FTNOPT 




0000 


1821 


FTNOPT 


JMP« 


•00001 




0001 


O00A 


A 


BSS 


10 




000R 


O00A 


I 


8SS 


10 




0015 


0002 


II 


BSS 


2 




0017 


0003 


0003? 


CON 


3 




ooia 


0002 


J . 


BSS 


? 




001A 


0002 


K 


BSS 


2 




001C 


0006 


0006? 


CON 


6 




com 


0002 


C 


BSS 


2 




001F 


41CE 


MCE. 


CON 


16846 




0020 


6666 




CON 


26214 


3 


0C?1 


0A01 


•00001 


ENA 


1 




00?? 


68F2 




STA» 


II 


4 


0023 


0A02 


•00004 


ENA 


2 




0024 


28F0 




MUI* 


II 




0025 


682F 




STA« 


•00005 




0026 


OA02 




ENA 


2 




0027 


28EC 




MUI« 


II 




0026 


6820 




STA» 


•00006 




002<? 


C8FP 




LDA» 


II 




002A 


28EC 




MUI«» 


0003$ 




002R 


6R2P 




STA« 


•00007 




002C 


5400 




PTJ* 


FLOAT 




002D 


7FFF 










O02F 


0056 P 




AOC 


•00007 




002F 


5400 




RTJ* 


FLOT 




0030 


7FFF 










0031 


FA40 




CON 


-1471 




0032 


0055 P 




AOC 


•00006 




033 


7FFF P 




AOC 


A 




0034 


5400 




RTj* 


Q80FIX 




0035 


7FFF 










0036 


F81F 




LDO* 


•00005 




37 


6A01 




STA# 


I 



39519900 A 



-2 



•2tQ 



C-7 



5 


003* 


nenc 




I 


RAO* 


II 




0039 


OA05 






ENA 


5 




003A 


98DA 






SUB* 


II 




003B 


0131 






SAP 


1 




003C 


lflff 






JMP* 


•00004 


6 


003H 
003E 


5400 
7FFF 






RTJ* 


SUBEXM 




003F 


0001 


P 




ADC 


A 




0040 


ooop 


P 




ADC 


I 


7 


0041 


5CEP 






RTj* 


(FLOAT ') 




004? 


"OK 


P 




ADC 


0006$ 




0043 


5CFC 






RTJ* 


(FLOT ') 




0044 


9D40 






CON 


-25279 




0045 


0010 


P 




AOC 


C 




0046 


0057 


P 




ADC 


•00008 




0047 


5CE* 






RTJ* 


(FIOAT ) 




0048 


001A 


P 




ADC 


K 




0049 


5CE6 






RTJ* 


(FtOT ) 




004A 


F400 






CON 


-7167 




004P 


0057 


P 




AOC 


•00008 




004C 


5CE8 






RTJ* 


(080FIX) 




004D 


68CA 






STA* 


J 


8 


004E 
004F 


5400 
7FFF 






PTJ* 


FUNEXM 




0050 


001F 


P 




ADC 


41CE, 




0051 


C0C5 






CON 


-16186 




0052 


0106 






SAZ 


6 


9 


0053 


1806 




10 


JMP* 


20 




0054 


O0O1 




•00005 


BSS 


1 




0055 


0001 




•00006 


8SS 


1 




0056 


0001 




•00007 


BSS 


1 




0057 


0002 




•00008 


BSS 


2 


11 


0059 
005A 


5400 
7FFF 




20 


RTJ* 


08STP 


11 


0000 


0000 






END 






PROGRAM LENGTH $0058 ( 



91) 



OPTS « KAL 

EXTERNALS 
Q80FIX FLOT 



08STP FLOAT SUBEXM FUNEXM 



c 



c; 
c 



C-8 



39519900 A 



c 



o 
o 

(^) Options LX 

Note that the full compilation has taken place. 

O 

o 
o 
o 
o 
o 



O 
O 
O 
O 
O 
O 

o 
o 
o 
o 



1 PROGRAM FTNOPT 
C 

C EXAMPLE FOP FORTRAN COMPILER OPTIONS 
C 

2 DIMENSION A<5)tl<5) 

3 00 1 H«l»5 

4 I(lI)«IIO/A(II) 

5 1 CONTINUE 
A CALL SU8EXM4AtI) 

7 J»K*6»C 

8 IF(FUNEXM<4.9)) 10t20tl0 

9 10 60 TO ?0 

10 20 CONTINUE 

11 END 

PROGRAM LENGTH $<)04F ( 79) 

OPTS • LX 

EXTERNALS 

080FIX FLOT OflSTP FLOAT SUBEXM FUNEXM 



Options IPX 

Note that no listing output is generated, but full compilation has occurred with object and load and go 
output. 

OPTS « PX 



39519900 A C-9/C-10 



v.- 



r 



c 

c 






L 

c 

c 

C: 



u 
O 
O 

o 
o 
o 



o 
o 
o 



o 
o 



REFERENCE MANUALS 



Title 

1700 MSOS 4 Reference Manual 

1700 MSOS 4 Macro Assembler 
Reference Manual 

1700 MSOS 4 Mass Storage FORTRAN 
Version 3 Reference Manual 

1700 MSOS 4 Computer System Codes 

1700 MSOS 4 Macro Assembler 
General Information Manual 

1700 MSOS 4 Small Computer Maintenance 
Monitor Reference Manual 

1700 MSOS 4 Instant 

1700 MSOS 4 File Manager Version 1 
Reference Manual 

1700 MSOS 4 Installation Handbook 

1700 MSOS 4 Small Computer Maintenance 
Monitor Instant 

1700 MSOS 4 General Information Manual 



Publication Number 
60361500 

60361900 

60362000 
60163500 

39519800 

39520200 
39520500 

39520600 
39520900 

3952170C 
39522400 



o 
o 
o 
o 

o 

o 
o 



39519900 A 



D-l/D-2 



c 



c 

c 



f 



c 



^ 



o 
Si 



COMMENT SHEET 



MANUAL TITLE 



CONTROL DATA® 1700 Computer Systems 1700 MSOS 4 



Mass Storage FORTRAN Version 3A/B General Information Manual 



PUBLICATION NO. 



39519900 



REVISION 
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BUSINESS 
ADDRESS: 
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